home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / FFACTWIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-12  |  1.1 KB  |  46 lines
  1. unit Ffactwin;
  2. { This application shows how to display Paradox style memo and graphic
  3.  fields in a form. Table1's DatabaseName property should point to the
  4.  Delphi sample database. Table1's TableName property should be set to 
  5.  the BIOLIFE table. See accompanying FISHFACT.TXT for more information 
  6.  about this demo application }
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  12.   Forms, StdCtrls, DBCtrls, DBGrids, DB, DBTables, Buttons, Grids, ExtCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     Panel1: TPanel;
  17.     Label1: TLabel;
  18.     DBImage1: TDBImage;
  19.     DBLabel1: TDBText;
  20.     DBMemo1: TDBMemo;
  21.     DataSource1: TDataSource;
  22.     Table1: TTable;
  23.     Table1Common_Name: TStringField;
  24.     Table1Graphic: TBlobField;
  25.     DBGrid1: TDBGrid;
  26.     BitBtn1: TBitBtn;
  27.     Table1Category: TStringField;
  28.     Table1SpeciesName: TStringField;
  29.     Table1Lengthcm: TFloatField;
  30.     Table1Length_In: TFloatField;
  31.     Table1Notes: TMemoField;
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. end.
  46.